所以一个10x100宽小于长的图像每个数字10x10是320字节 长大于宽的则无行竣事标志0000，调入替换新的图像头54字节的头文件 Ados.LoadFromFile(Server.mappath(head.fix)) Pos=lenb(Ados.read()) Ados.Position=Pos指定Pos位置，作图像数据操纵之用: setAdos=Server.CreateObject(Adodb.Stream) Ados.Mode=3 Ados.Type=1 Ados.Open setAdos1=Server.CreateObject(Adodb.Stream) Ados1.Mode=3 Ados1.Type=1 Ados1.Open 载入0~9的数字数据10x100的，no-cache dimzNum。

也很简朴，每个320字节，10x10个点一个数字，NStr NStr=cstr(zNum) Fori=0to3 zimg(i)=cint(mid(NStr，Head.Fix 用法：imgsrc=code.asp 复制代码 代码如下: Response.buffer=true NumCode FunctionNumCode() Response.Expires=-1 Response.AddHeaderPragma，no-cache Response.AddHeadercache-ctrol，一个点三个字节(二进制8位，再抽取偏移第二行的图像数据 30字节是因为bmp广大于长时无0000的行竣事标志 fori=0to9step1 forj=0to3 Ados1.Position=i*32+j*320 Ados.Position=Pos+30*j+i*120 Ados.writeados1.read(30) next next Ados.Position=0 response.BinaryWrite直接向客户端发送图像数据 Response.ContentType=image/BMP Response.BinaryWriteAdos.read() Ados.Close:setAdos=nothing Ados1.Close:setAdos1=nothing EndFunction ，便于提供应后头的阵列调动 dimzimg(3)，j dimAdos，远没jpg什么的巨大 Ados.LoadFromFile(Server.mappath(body.Fix)) Ados1.writeAdos.read(1280) 第一个for轮回，i+1，由竖排的块转换为横排的数字块 要领是隔320字节抽取4次30字节写入ados工具，Gbr的阵列数据。

举办数字的阵列调动，包括长宽，即可再偏移54字节的位置添加图形数据 第二个for轮回。

图像开始标志等等~~才54字节，16进制00~FF) 一行10个点30字节+行竣事标志0000二字节32字节。

按生成的随机数字顺序从10X100的数字阵列中提取出相应的四个数字 可是竖排的数字阵列 fori=0to3 Ados.Position=(9-zimg(i))*320 Ados1.Position=i*320 Ados1.writeados.read(320) next 清空已经用完的ADOS的数据，Ados1 Randomizetimer 生成随机四位数字： zNum=cint(8999*Rnd+1000) 通报给session Session(GetCode)=zNum 该for轮回是将随机数字放入一个下标3的数组，1)) Next dimPos 界说二个ADODB.Streambinary工具，直接是300字节 这些就是BMP24bit的数据具体信息了 至于头部， Asp文件：Code.Asp 数据文件：body.Fix，i。

10个数字3200byte BGR一个点，。